home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Tools / EGALE / BEISPIEL / BEISPIEL.IMG (.png) < prev    next >
GEM Raster Bitmap  |  1995-09-26  |  17.0 KB  |  640x470  |  1-bit (2 colors)
   ocr: ÉGALE Datel Suchen Bearbeiten Fenster Optionen A DINEGRLEWBEISPIEL.TAT DINEGRLENBEISPIEZ.IAT a Lange: 23 I Lange: 22 1 FUMCTION mochentags(ds) Alt 1 FUMCTION mochentagsids) ! Heu 2 LUCHL tag$,jahr mon,tag mo,jh,je,t 2 LOCAL tag$.jahr mon.tag.mo.Jh.Jje.t 3 DEFLKD "a-z" 3 4 4 jahr: -UAL(MIDS(d9,7)) 5 jahr-URLUMIDF(ds.) 5 mon=UAL (HIDS(d5,4,2)) 6 mon-VAL(HID$(d5,4,2)) 6 tag-il (HDs(d5.1.2)) L tguustidiza) r 8 ZEILE: DHNEUALENBEISPIE1.TXT DINEGAL E h-2 9 6 tag=VAL CMuDs05 E ? hr DIU 100 11 10 12 7 tag=VAL (LEFTSIdS 3 hr K=0 m0,12 MOD 100 14 13 9 I 14 je 15 IF jece 16 IF jece 16 je=99 47 ia-g9 17 j ...